Sanex Logistics Rusya Parsiyel Kargo Taşımacılığı

<% set conn = Server.CreateObject("ADODB.Connection") dbase = "DRIVER={Microsoft Access Driver (*.mdb)};"&_ "DBQ=" & Server.MapPath("../e-sanex/database/TERAKKI.mdb") &";" conn.open(dbase) '......Tarih cevir........................................................ Function dbDate(dt) dbDate = year(dt) & right("0" & month(dt), 2) &_ right("0" & day(dt),2) & " " & formatdatetime(dt,4) End Function '........................................................................... airwaybilno=Trim(Request("airwaybilno")) email=Trim(Request("email")) ilktarih=year(date)&"/"&month(date)&"/"&day(date) sqljkh="Select * from KONSIMENTO where KONSIMENTO='"&airwaybilno&"'" Set rsjkh=Conn.execute(sqljkh) if not rsjkh.eof then sqljkh1="Select * from KONSIMENTO_AYRINTISI where KONSIMENTO_KODU="&rsjkh("KAYIT_NO")&" order by STATU_KODU DESC" Set rsjkh1=Conn.execute(sqljkh1) %>

<%=airwaybilnox%>

SANEX EXPRESS

SHIPMENT ONLINE PRINT

Name	<% sqlxy="Select * from ALICIFIRMA where KAYIT_NO="&rsjkh("ALICI_FIRMA")&"" set rsxy=Conn.execute(sqlxy) if not rsxy.eof then adres=rsxy("ADRESI") %> <%companyname=rsxy("FIRMA_ADI")%> <%End if %> <%=(rsxy("FIRMA_YETKILI"))%>
Company	<%=(companyname)%>
Address	<%=(adres)%>
City	<% if not ISNULL(rsxy("SEHIR_KODU")) and rsxy("SEHIR_KODU")<>"0" THEN sqlkkk="Select ULKE_KODU,HAVALANI from HAVALANLAR where POSTA_KAYITNO="&rsxy("SEHIR_KODU")&"" set rskkk=Conn.execute(sqlkkk) if not rskkk.eof then%> <%=(rskkk("HAVALANI"))%> <%end if %> <%end if %>
Country	<% if not ISNULL(rsxy("ULKE_KODU")) then sqlS="Select ULKE_ADI from ALICI_ULKE where ULKE_KODU="&rsxy("ULKE_KODU")&"" Set rss=Conn.execute(sqls) if not rss.eof then %> <%=(rss("ULKE_ADI"))%> <%end if%> <%end if%>
Receiver Phone	<%=(rsxy("TELEFON1"))%>

Air Waybill	<%=airwaybilno%>
Pieces	<%=(rsjkh("PAKETSAYISI"))%>
Packaging	<%if rsjkh("PAKETLEM")="1" then %> Sanex Envelope <%elseif rsjkh("PAKETLEM")="2" then %> Sanex Packing <%elseif rsjkh("PAKETLEM")="3" then %> Other Package <%end if %>
Description	<%=(rsjkh("GONDERI1"))%>
Payment	<%if rsjkh("ODEME")="1" then%> Sender Recipient <%elseif rsjkh("ODEME")="2" then%> Credit Card <%elseif rsjkh("ODEME")="3" then%> Cash <%end if%>
Collet	$<%=rsjkh("KOLLEK_BEDELI")%>

RECIPIENT'S INFORMATION
Pickup Date	<% dd=day(rsjkh("PICKUP_TARIHI")) if len(dd)=1 then dd="0" & dd end if mm=month(rsjkh("PICKUP_TARIHI")) if len(mm)=1 then mm="0" & mm end if yyyy=year(rsjkh("PICKUP_TARIHI")) 'getting new date newdate = dd &"."&mm& "." & yyyy %> <%=(newdate)%>	Destination	<% if not ISNULL(rsjkh("DESTINATION")) then sqlS="Select HAVALANI from HAVALANLAR where POSTA_KAYITNO="&rsjkh("DESTINATION")&"" Set rss=Conn.execute(sqls) if not rss.eof then %> <%=(rss("HAVALANI"))%> <%end if%> <%end if%>
Pieces	<%=rsjkh("PAKETSAYISI")%>	Description	<%=(rsjkh("GONDERI1"))%>
		Weight	<% if not ISNULL(rsJKH("KILOGRAM")) then sqlS="Select KILOGRAM from KILOGRAM where KAYIT_NO="&rsjkh("KILOGRAM")&"" Set rss=Conn.execute(sqls) if not rss.eof then %> <%=rss("KILOGRAM")%> <%end if%> <%end if%> Kg

Call Center +090 212 474 65 65 Pbx

<%else%>

KONŞİMENTO NUMARASI BULUNAMADI LÜTFEN KONTROL EDİP TEKRAR GİRİNİZ!

<%end if%>